home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / comm / irc / Babelfish.lha / Babelfish2.amirx < prev   
Text File  |  2002-05-28  |  2KB  |  65 lines
  1. /* Babelfish translator script for AmIRC ©2002 Michael Trebilcock */
  2. Options Results
  3. Parse Arg Args
  4.  
  5. INFO Screen
  6. Screen="rt_pubscrname='"Result"'"
  7.  
  8. IF Exists("LIBS:rexxreqtools.library")|Exists("LIBS/rexxreqtools.library")|Exists("rexxreqtools.library") THEN DO
  9. IF ~SHOW("L","rexxreqtools.library") THEN Call AddLib("rexxreqtools.library",0,-30,0);End
  10. ELSE DO;"ECHO Unable to open rexxreqtools.library, please install LIBS:rexxreqtools.library";Exit;End
  11.  
  12. IF Args=""|Args="?"|Upper(Args)="HELP" THEN DO
  13.  Call cEcho("/rx babelfish2 <Lang> <GUI>")
  14.  Call cEcho("/rx babelfish2 <Lang> <Channel/Nickname>")
  15.  Call cEcho("/rx babelfish2 <ABORT>")
  16.  Call cEcho("")
  17.  Call cEcho("Examples:")
  18.  Call cEcho("")
  19.  Call cEcho("/rx babelfish2 it_en GUI")
  20.  Call cEcho("- Will translate anything you type in the window that appears, from italian to english")
  21.  Call cEcho("/rx babelfish2 it_en Mick")
  22.  Call cEcho("- Will automatically translate any messages from Mick, from italian to english")
  23.  Call cEcho("/rx babelfish2 it_en #AmigaZone")
  24.  Call cEcho("- Will automatically translate any messages in #AmigaZone, from italian to english")
  25.  Call cEcho("/rx babelfish2 ABORT")
  26.  Call cEcho("- Will abort ALL automatic translations")
  27.  Exit
  28. End
  29.  
  30. IF Word(Upper(Args),2)="GUI" THEN DO
  31.  DO FOREVER
  32.   Text=rtgetstring("","Enter text to translate:","Babelfish translator GUI","Ok|Cancel",Screen)
  33.   IF rtresult="0" THEN Exit
  34.   "SAY /rx babelfish "Word(Args,1) Text
  35.  End
  36. End
  37.  
  38. IF Word(Upper(Args),1)="ABORT" THEN DO
  39.  Call SetClip(BabelOn,"0")
  40.  Call cEcho("All automatic translation is now off..")
  41.  Exit
  42. End
  43.  
  44. Call cEcho("Automatic translation for "Word(Args,2)" is now on..")
  45. Call SetClip(BabelOn,"1")
  46.  
  47. DO FOREVER
  48.  drop prefix
  49.  drop comm
  50.  drop dest
  51.  drop rest
  52.  "GETLINE"
  53.  IF GetClip(BabelOn)="0" THEN Exit
  54.  prefix=line.prefix
  55.  comm=line.command
  56.  dest=line.dest
  57.  rest=line.rest
  58.  Parse Var Prefix Nick"!"User"@"Host
  59.  IF Upper(Nick)=Word(Upper(Args),2)|Upper(Dest)=Word(Upper(Args),2) THEN "SAY /rx babelfish \"Word(Args,1)" <"Nick"> "SubStr(Rest,2)
  60. End
  61.  
  62. cEcho:
  63. "ECHO P="d2c(27)"b«Babelfish» TEXT="Arg(1)
  64. Return 0
  65.